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SCO ^(^^S 



000000* 

y00000* 



000000* 




W00000' 


0S0122 


000005* 


000 


000006* 


176700 


WWWOlk** 


000254 


000012' 


240 


0M0013' 


000 


000^14' 


000001 


000016' 


000000 


0V^(/^020' 


000000 


^(■'0022' 


000000 


0f.0i(i24' 


000000 


000026* 


150000 


0000 30' 


001452 


000032* 


000252 


000034' 


000000 


000036' 


002424 


000040' 


000000 


000042' 


000000 


00004 4' 


000000 


000046' 


000000 


000050' 


000000 


t'00052' 


000000 


000 054' 


000000 


000056' 




000056' 


000000 


00,0060' 


000000 


0M00fe2' 


000000 


000064' 


000000 


0^:0066' 


000000 


i'i;-0e7t^' 


000000 


0(',tM^7 2' 


000000 


0t 007 4' 


000000 


000v)7 6' 


000000 


00010C1* 


00 0000 


l-.i.i;»U'2' 




t:s 0102* 


0H('0f.0 


i.',hM^->^' 




0c»./l04' 


0H0000 


^^i0 1.>6' 




000106* 


000000 


HS10J 1>'>' 


000000 


000112' 


t''0l734 


i'(^i-)114' 


000000 


0^•0l 16' 


ti/.t'000 


fu'i0i20' 


000000 


|'0H122' 


iMH)060 


("'40124' 


000 370 


0'/ 126' 


000000 



lOMODX <RPBI >, 176700,254,5,0,0, 1300«, 60, BUri 
MODULE lS0000#RPai , 176700,254,5,0,0, i300i#60 
.TITLE RpBI DEC/XU SYSTEM EXEPCISER MODULE 
DDXCOM VERSION 6 23«MAy«78 

gLIST BIN 

I #######»•»«#######»#####«###«#« 

BEGIN! 



044502 



N,256,,i024. 
,iUriN,256,,1024« 



#»««»»«• ■»###«###«f###4»*»#«>#««##»##»»#»###«« 



040 



MODNAMi 


sASCII /RPBI / 


XFLAGj 


.BYTE OPEN 


AOORi 


176700+0 


VECTOPi 


254+0 


BRll 


,BVTE PRTV5+0 


BR2I 


.BYTE PPTY0+0 


DVIDII 


0+1 


SRll 


OPEN 


SR2I 


OPEN 


SR3i 


OPEN 


SP4I 


OPEN 



STATi 150000 
INITI START 
SPOINTI MODSP 
PASCNTI 
ICONTi 1300, 
ICOUNTt 
SOFCNTI 
HRDCNTI 
SOFPASI 
HRDPASI 
SYSCNTI 
PANNUMl 
CONFIGl 
PESII 
PES2I 
SVP0J OPEN 
SVPli OPEN 
SVP2I OPEN 
SVR3! OPEN 
SVP45 OPEN 
SVP5I OPEN 
SVP6 5 OPEN 
CSPAs OPEN 
SBADR! 

ACSR; OPEf 
l^ASADR! 
ASTATj OPEN 
FRPTYPJ 
ASB! OPEN 
AWASJ OPEN 
PSTRTi RESTPT 
KDTOJ OPEN 
IvDFPi OPEN 
INTPI OPEN 
IDNUMj 6R 
PBUFVAS BLlFTi^ 
PBIJFPAj OPEN 



fMODULE NAME. 

USED TO KEEP TRACK OF WBUFF USAGE 

1ST DEVICE ADDR, 

iST DEVICE VECTOR, 

iST BR LEVEL. 

2ND BR LEVEL, 

DEVICE INDICATOR 1, 

SWITCH REGISTER I 

SWITCH REGISTER 2 

SWITCH REGISTER 3 

SWITCH REGISTER 4 

STATUS WORD, 

MODULE START ADDR, 

MODULE STACK POINTER, 

PASS COUNTER, 

» OF ITERATIONS PER PASS=1300, 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

S OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM » WHEN RAND MACRO IS CALLED 

RESERVED FOP MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE R0, 

LOC TO SAVE Rl. 

LOC TO SAVE R2. 

LOC TO SAVE P3, 

LOC TO SAVE P4, 

LOC TO SAVE P5. 

LOC TO SAVE R6, 

ADDR OF CURRENT CSR, 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR, 

ADDR OF BAD DATA, OR 

STATUS REG CONTENTS, 

TYPE OF ERROR 

EXPECTED DATA, 

ACTUAL DATA, 

RESTART ADDRESS AFTER END OF PASS 

WORDS TO MEMORY PER ITERATION 

WORDS FROM MEMORY PER ITERATION 

* OF INTERRUPTS PER ITERATION 

MODULE IDENTIFICATION NUM8ERb60 

READ BUFFER VIRTUAL ADDRESS 

READ BUFFER PHYSICAL ADDRESS 
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00..M30' 


0H0004^ 


0v'0l32' 


000400 


f0cM34' 


00M000 


0i.v'136' 


01,1000 


IH'fcHO-* 


00 2000 


i?iAi^j42' 


000000 


t^00l44' 


000000 


000146' 


000000 


W00150' 


000000 




4 



MACYIJ 


30A(1052] 


08-FEP-79 


RBUFEAJ 


OPEN 




RBUFSZJ 


256. 




WBUFPA! 


OPEN 




WBUFEAl 


OPEfi 




WBUFRG! 


J024, 




KBUFSZt 


OPEN 




CDERCTI 


OPEN 




CDWDCT! 


OPEN 




FRFEs 


OPEN 






.PERT 


SPSIZ 




.NLIST 






.WORD 







,LIST 






.ENDR 




MODSP { 






j*«-«*««««*«**#**«-»««»««4(.#«* 
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JPEAD BUFFER EA BITS 
ISIEE OF THE READ BUFFER 
JWRITE BUFFER PHYSICAL ADDRESS 
JWRITE BUFFER EA BITS 
jWRITE BUFFER SIZE REQUESTED 
;WRITF BUFFER SIZE AVAILABLE 
JCDATA/DATCK ERROR COUNT 
fCDATA/DATCK 1>,0RD COUNT 
jRESERVED FOR FUTURE USE 
;MODULE STACK STARTS HERE, 



«•»»*»«»*#*»»»««■•»■■»»##»##«»»#» 
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222 


U002S2' 


000000 


223 


000254' 


000000 


224 


000256' 


000000 


22S 


000260' 


000000 


226 


000262* 


000000 


227 


000264' 


000000 


226 


000266' 


000000 


229 


000270' 


000000 


230 


000272' 


000000 


231 


000274' 


000000 


232 






233 






234 






235 






236 


H00276' 


000000 


237 


000300' 


000000 


238 


000302' 


000000 


239 


000304' 


000000 


240 


000306' 


000000 


241 


000310' 


000000 


242 


000312' 


000000 


243 


000314' 


000000 


244 


000316* 


H00000 


245 






246 


000320' 


000006 


247 


0fc-0322' 


000162 


248 


000324' 


000024 


249 


000326' 


133224 


250 


000 330' 


132132 


251 






252 






253 






254 


00(^332* 


000005 


255 


«H5fei3 34' 


000137 


256 


000336' 


000022 


257 


000 340' 


U4046 


258 


01^0342' 


113113 


259 






260 






261 


00(^344' 


000000 


262 


F'00 346' 


000000 


263 


000 350' 


000000 


264 


00^352' 


000000 


265 


0v*0 35 4' 


HM0000 


266 


W00 356' 


000000 


267 


t^tlv?360' 


000000 


268 


<5(-n?36 2' 


000000 


269 


4''»0 36 4' 


000000 


27v^ 


000 366' 


O000fr»0 


271 


u 00 3 71-''' 


000400 



DLTCNTI 

CLKi 

BLKli 

CXLI 

CYLSAVl 

SEC I 

CNTI 

FUNCI 

ONCEEl 

FEBADRI 



>DATA LAfE ERROR COUNTER 

IDISK BLOCK COUNTER 
ICALCULATED CYLINDER ADDRESS 
jMODIFIED CYLINDER ADDRESS FOR RP04/5 

ICYCLE COUNTER 



;D0 NOT CHANGE THE ORDER OF THE NEXT 15 LOCATIONS 
;NEEOED FOR MAP22 ROUTINE 



PA18J 





XMEMI 





PA22I 





EA22i 





MBLKPVI 





MBLKTRI 





HOOEi 





MLOWCYI 





MHICYl 





T16I 


6 




114, 




20. 




46740, 




46170, 


•■»«■#■»»«*#■»■»«»«««» 


T18I 


5 




95, 




le. 




3895W, 




38475, 


•##■»#«■**»*»««■»#«#* 


ZEROj 





DSKADPI 





DVICEl 





DRIVE! 





BLKSAVl 





TBUFI 





WCNTll 





WCNT2! 





UNITNO! 





MODI! 





BUFINi 


.BLK'W 251 



jHOLDS 1024 WD BLKS PER TRACK 

IHOLDS BLKS PER CYLINDER 

IHOLDS LAST SECTOR # THAT WILL FIT PER TRACK 

JBLKS THAT FIT IN FIRST 410 CYLINDERS (0"409) 

IBLKS THAT FIT IN LAST 405 CYLINDERS (410-814) 

5THESE 5 LOC, GET MOVED TO ABOVE 5 IF 16 BIT MODE 

J 1024 WORD BLOCKS/CYLINDER 

ISECTORS/TRACK 

J410a X 114, (CYLINDER - 409) 

1405, X 114, (CYLINDER 410 " 814) 



ITHESE 5 LOC GET MAPPED INTO FIRST 5 rtBOVE IF la BIT mOD 

5 1024 WORD (18 BIT) BLOCKS/CYLINDER 

ISECTOPS/TRACK 

J410, X 95, (CYLINDER - 409) 

1405, X 95. (CYLINDER 410 - 8l4) 



■^ 



PPBl DEC/Xll SYSTEM EXERCISER MODULE 
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272 


s)01 37i^." 




273 


k*vil37i^' 


000000 


274 


«vol372' 


^^00003 


275 


li0}37 4' 


000000 


276 


si'M376' 


000000 


277 


0-^1 40^' 


000000 


278 


i.hM 4(^.2' 


000000 


279 


;■■- 1 4 4 ' 


000000 


28^ 


0111 4*^6' 


000000 


281 


001 4 1(^' 


000000 


282 


f'wn4i2' 


000000 


283 


001414' 


000000 


284 


!U',1416' 


0f'^0000 


285 


n«M42W' 


000000 


286 


«;01422' 


000000 


287 


^^01424' 


000000 


288 


001426' 


000000 


289 


00143<^' 


000000 


290 


001432' 


000000 


291 


M01434' 


000000 


292 


001436' 


000000 


293 


001440' 


000000 


294 


fe>»1442' 


000000 


295 


001444' 


000274 


296 


001446* 


000266 


297 


001450' 


177777 



TABLE! 




RHCSll 





RHWCI 





RHBAi 





PPDA! 





PHCS2I 





RPDS! 





PPERII 





PPA5! 





PPLAl 





PHDBl 





PPMPs 





RPDT! 





PPSNj 





PPOF! 





RPDCl 





PPCCI 





RPER2! 





PPER3! 





RPECU 





RPEC2! 





RHBAEl 





RHCS3! 





XFERADl 


FERADP 


XFERCTl 


CNT 




177777 
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298 
299 

300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
33v^ 
331 
332 
333 
334 
335 
336 
337 
338 
339 
34i^ 
341 
342 
343 
344 
345 
346 
347 
348 
349 
35fr.- 
351 
352 
353 



001452' 
001460' 
001466* 
001474' 

001500' 
001504' 
001312' 
001516' 
001524' 
001526* 
0WI532' 
001536' 
001542' 
001546' 
5^01550' 
00J5S2' 
001554* 
001562' 
001566' 
OM1574' 
001602' 
001606* 
001614' 
H01622' 
001630' 
001632' 
1^016 36' 
f.0164 2' 
f''.0t644' 
«frM646' 
00165(1' 
i''t'165 2' 
001654' 
iH'166^'<' 
"fc!fe62' 
0'/11670' 



('0167 4' 

k'wnpv^' 

C01 704* 
!H;1706' 

(•Pt7l4' 
yv)17 22' 

<H>17 26' 
W017 3(''' 

ir;0l734' 
41017 34' 
M01742' 
0t^l750' 
001754' 
f)0l762' 
tun 762' 
001766' 
00177 4' 



012767 
012767 
012767 
005067 
t^0S067 
012767 
012700 
032767 
001404 
005067 
012700 
012701 
012702 
M12021 
005302 
001375 
012767 
105067 
K16767 
016767 
016706 
012767 
012767 
122737 
001021 
J 13700 
012701 
105700 
001403 
006301 
105300 
000773 
130167 
01:^1405 
113767 
004767 



004767 
004767 
0(^0400 
012767 
016767 
005767 

000167 



104415 
016767 
005467 
016767 

1M4414 
016767 
005467 



002000 
000400 
000003 
176566 
176546 
010000 
000320' 



176436 
176426 
176424 



176654 
176272 



STARTI 



176634 

000332' 
000306' 

000005 



000007 

003772 
176222 
176550 
176224 
177777 
177777 
000011 

000040 

000001 



000040 
0!U422 



003000 
002704 

177777 
17643«^ 
176422 



000000' 

176164 
176406 
176276 

000000* 

176150 
176360 



176510 181 



176554 
176550 

176442 
176542 

000041 



DAOSTI 



176474 



176450 
176430 



000124' 
176412 



176372 
176364 



MOV 
MOV 
MOV 
CLR 
CtR 
MOV 
MOV 
BIT 
BEQ 
CLR 
MOV 

my 

MOV 

MOV 

DEC 

BNE 

MOV 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

PEG 

A5L 

DECB 

BF 

BITE 

BEQ 

MOVB 

JSR 



JSP 

JSP 

BR 

MOV 

MOV 

TST 

B^'E 

JWp 



#10248, WDFR 

#256,»WDT0 

#3iINTR 

CNT 

DLTCNT 

#BIT12,M0D1 

#T16#R0 

#BIT5,SR1 

2S 

MODI 

#T18,R0 

#MBLKRV#Rl 

»5rR2 

(P0) + »CRU + 

R2 

3$ 

#7,0NCEE 

FLAG 

DVID1,DVICE 

DVICE#DBIVE 

SP0INT,R6 

»-l,BLKl 

#-l,UNITN0 

ill,@#4l 

3S 

Q«40,P0 

#1#R1 

R0 

6S 

PI 

P0 

5$ 

Rl, DRIVE 

3S 

9«40#UNITNO 

PC»DR0P 



PC, SETUP 

PC,PEZET 

CT 

»-l,UNlTN0 

DVICE, DRIVE 

DVICE 

RESTRT 

FINI 



STRTl 
STPTl ! 



GETPAS, BEGIN, BBUFVA 
MOV RBUFSZ,WCNT2 
NEG WCMT2 
MOV BLK1,BLKSAV 

GWBUFS, BEGIN 



MOV 
NEG 



WPUFSZ,WCNT1 

WCMTl 



1024, WORDS FROM MEM/ITERATION 
256, WORDS TO MEM/ITERATION 
3 INTERRUPTS/ITERATION 

ZERO END OF PASS TESTER 
CLEAR DATA LATE ERROR COUNTER 
SETUP FOP 16 BIT MODE (NORMAL) 
GET TABLE OF VALUES FOR 16 BIT MODE 
16 BIT MODE? 
YES 

NO 18 BIT MODE, CLEAR FMT BIT 
GET TABLE OF VALUES FOR 18 BIT MODE 
BEGIN OF TABLE ENTRIES 
NO, OF ENTRIES 
STORE AN ENTRY 
COUNT IT 
DO MORE 

SET ONE TIME ONLY FLAGS 
CLEAR FLAGS 
GET DRIVE INDICATOR 
ALSO SAVE IT IN DRIVE 
RESTORE STACK POINTER 
INITIALIZE BLOCK COUNTER 
INITIALIZE DEVICE COUNTER 
IF RP IS THE LOAD MEDIUM THEN 
BEGIN 

GET LOAD-DRIVE NUMBEB 
INITIALIZE DRIVE MASK 
>»HILE R0>0 DO 
BEGIN 

SHIFT DRIVE MASK TO NEXT DRIVE 
DOWNCOUNT DRIVE # 
END 

IF LOAD-DRIVE IS SELECTED, THEN 
BEGIN 

DEVICE NUMBER TO DROP 
DROP LOAD-DEVICE 
END 
END 
SET REGISTER ADDRESSES 

COi^TlNUE 
INIT UNITNO AGAIN 
SETUP TO FIND DRIVES 

DROP THE MODULE ? 

NO 

YES DROP MODULE 



JGET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
} SAVE READ BUFFER SIZE 
? GET THE 2'S COMPLEMENT 
jINlT BLOCK COUNTER 

jGET WRITE BUFFER INFORMATION 
J SAVE WRITE BUFFER SIZE 
J GET THE 2'S COMPLEMENT 
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354 


002000* 


004767 


002174 




355 


PH>200 4' 


016777 


176354 


177366 


356 










357 


H0 2012' 


005767 


176332 




358 


002016' 


001002 






359 


002020' 


000167 


000160 




360 


^02024* 


132767 


000010 


003526 


361 


002^532' 


001401 






362 


00203 4' 


000747 






363 


002036' 


004567 


000506 




364 


002042' 


00 4567 


002412 




365 


002046' 


000402 






366 


002050' 


004767 


002202 




367 


002054' 


005067 


003464 




368 


002060' 


005067 


003462 




369 


002U64' 


005067 


003460 




370 


002070' 


005067 


003456 




371 


00207 4' 


005067 


00 3454 




372 


002100' 


005067 


003452 




373 


002104* 


004567 


000250 




374 


002110' 


000167 


000100 




375 


002114' 


132767 


000004 


003436 


376 


002122' 


001410 






377 


002124' 


142767 


000004 


003426 


378 


002132' 


012767 


177777 


176116 


379 


002140* 


000167 


177610 




38fi 


002144' 


004567 


000304 




381 


002150' 


000167 


000072 




382 


002154' 


004567 


000406 




383 


002160' 


000167 


000114 




384 


002164' 


104412 


000000' 


000126' 


385 


002172* 


002174' 






386 


002174' 








387 


002174' 


104413 


000000' 




38B 










389 


002200' 


000167 


177574 




390 


002204' 








391 


002204' 


104410 


000000' 




392 










393 


002210' 


000167 


177564 




394 


002214* 


105267 


003324 




395 


002220' 


122767 


000003 


003316 


396 


002226' 


001402 






397 


002230' 


000167 


177650 




398 


002234' 








399 


002234' 


104403 


000000' 


005466' 


400 


002242' 


000167 


000064 




401 


002246' 


105267 


003273 




402 


002252* 


122767 


000003 


003265 


403 


002260* 


001402 






404 


002262* 


000167 


177656 




405 


002266' 








406 


002266* 


104403 


000000' 


005474* 


407 


002274* 


000167 


000032 




408 


002300* 


105267 


003242 




409 


002304' 


122767 


000003 


003234 



CYCLEi 
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JSR 


PCFDUNIT 


FIND UNIT ^ 


MOV 


Ur;lTN0,ftRHCS2 


GET UNIT # SO BOTH PORTS 

WILL BE LOOKING FOR SAME DRIVE 


TST 


DVICE 


ANY 'DRIVES LEFT ? 


BNE 


IS 


YES 


JMP 


FINI 


NO DROP MODULE 


BITB 


#PIT3,FLAG 


MORE DRIVES ON SYS? 


BEQ 


ABW 


YES 


ER 


STPT 


YES CORRECT SETUP FOP DUEL PORT RETURN 


JSH 


P5,UPDATT 


UPDATE D5K ADDR 


JSR 


H5, READY 


IS DRIVE READY ? 


BP 


10 


YES, CONTINUE 


JSR 


PCNOTRDY 


NOT BEADY, GO i^IT UNTIL IT IS 


CLP 


TPYl 


ZERO RETRY COUNTERS 


CLP 


TRY3 




CLR 


TPY5 




CLR 


TPY7 




CLR 


THY9 




CLR 


TRYU 




JSP 


R5, WRITE 


WRITE SOME DATA 


JMP 


PETRYl 


IF ERRORS, TRY IT AGAIN 


BITB 


#8IT2,FLAG 


DISK OVERFLOW ? 


BEQ 


GOA 


NO, CONTINUE 


BICB 


#PIT2,FLAG 


YES, CLEAR OVERFLOW FLAG 


MOV 


«-l,BLKl 


RESET BLOCK # 


JMP 


STRT 


CONTINUE 


JSR 


R5,WPITCK 


WRITE-CHECK THE DATA 


JMP 


RETRY2 


IF ERRORS, TRY AGAIN 


JSR 


R5,READ 


READ THE DATA (WRITTEN 


JMP 


RETPY3 


IF ERRORS, TRY AGAIN 


CDATAS 


BEGI^',RBUFPA 


REQUEST FOR MONITOR TO CHECK DATA 


.+2 




IF ERROR, CONTINUE 



ENDITS, BEGIN 
JMP NEXT 
ENDS, BEGIN 



NXTll JMP NEXT 

RETRYII INCB TRYl 

CMPB #3, TRYl 

BEQ 1$ 

JMP GOS 
l$l 

MSGN$, BEGIN, EXCEDl 

JMP NEXTA 

RETRY2I INCB TRY2 

CMPB #3,TRY2 

BEQ 1$ 

JMP GOA 
iSi 

MSGN8, BEGIN, EXCED2 

JMP NEXTA 

RETRY3I INCB TPY3 

CMPB #3,TRY3 



SIGNAL END OF ITERATION, 
MONITOR SHALL TEST END OF PASS 
NO, CONTINUE 

DROP THE MODULE 

GET NEXT DRIVE 
COUNT THE RETRYS 
LIMIT EXCEEDED 
YES 
NO RETRY 

ASCII MESSAGE CALL WITH COMMON HEADER 
GO TO NEXT DRIVE 
COUNT THE RETRYS 
LIMIT EXCEEDED 
YES 
NO RETRY 

ASCII MESSAGE CALL WITH COMMON HEADER 
GO TO NEXT DRIVE 
COUNT THE RETRYS 
LIMIT EXCEEDED 
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410 
4U 
412 
413 

414 



002312' 001402 

002314* 000167 
002320' 

002320' 104403 

002326' 000167 



177634 



BEQ 
JMP 



1$ 
GOB 



MSGN$, BEGIN, EXCED3 
JMP NEXTA 



J YES 

J NO RETRY 

lASCII MESSAGE CALL WITH COMMON HEADER 
I GO TO NEXT DRIVE 
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415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 



002332' 032767 
00234<^' 001405 
002342* 004767 
002346* 104403 
04^2354* 000167 



000001 175456 WEXTAI 

000750 

0001^00* 005524* 

177420 IS! 



BIT «BIT0,SR1 » DROP THE DRIVE 

BEQ IS I NO, SKIP TO NEXT DRIVE 

JSP PCfDROP I YES, DROP OFFENDING DRIVE 

MSGNS, BEGIN, DRP fASCII MESSAGE CALL WITH COMMON HEADER 

JMp NEXT » GO ON TO NEXT DRIVE 



.MACRO LINEUP EABITS > LINE UP EA BITS FOR PHCSl 



LINEUP 

.NLIST 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

.LIST 

,ENDM 



EABITS 

EABITS#R0 

R0 

R0 

P0 

R0 
R0,XMEM 

LINEUP 



J LINE UP EA BITS FOR RHCSl 

J GET EXTENDED MEMORY BITS 

) SHIFT 4 PLACES TO THE LEFT 

I TO LINE UP WITH RHCSl 



I SAVE THE SHIFTED BITS 
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i£Q 0013 



434 

43S 
436 
437 
438 
439 
440 
441 
443 
443 
444 
44S 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
46P 
461 
4b2 
463 
464 
4fa5 
466 
4b7 



002360' 
IJ02366' 
002374' 
002402' 
fe»024l0' 
002414' 
002422' 

002450' 
002454' 
002462' 
002470' 
002476' 
002504' 
002510' 
002516' 

002544' 
002550' 
002554* 

002560' 
002564' 

002566' 
002574' 

002602' 
002610* 
002616' 
002622' 
0V12631'*' 



012767 
016777 
016777 
016777 
004767 
016777 
016767 

000167 
012767 
016777 
016777 
016777 
004767 
016777 
016767 

000167 
004767 
016700 
004767 
000205 

012767 
016777 
016777 
016777 
004767 
016777 
016767 



000161 
173766 
17S534 
175740 
001516 
175640 
175634 

000306 
0001S1 
175672 
175440 
175644 
001422 
175544 
175540 

000212 
001116 
175476 
001172 



000171 
175562 
175320 
175532 
001310 
175432 
175426 



173702 
176776 
176772 
176766 

177002 
17S630 



175606 
176702 
176676 
176672 

176706 
175534 



175474 
176570 
176564 
176560 

176574 
175422 



0'.'2fo56' 0004 41 



J 

WRITE! MOV 
MOV 
MOV 
MOV 
JSP 
MOV 
MOV 

t LINEUP 

JMP 

WBITCKI MOV 
MOV 
MOV 
MOV 
JSP 
MOV 
MOV 

LINEUP 
JMP 

UPDATTI JSP 
MOV 
JSP 
RTS 

READ I MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

; LINEUP 
BR 



PP DISK DRIVERS 



»i61,FUNC 

WCNTlflRHWC 

WBUFPA,giRHBA 

DSKADRi^RPDA 

PC|RP06CK 

C¥L#fRPDC 

CYLSAV,C¥L 

WBUFEA 

GOGO 

«151,FUNC 

WCNTl,9RHWC 

WBUFPAf^RHBA 

DSKADR#0RPDA 

PC#RP06CK 

CYL,#RPDC 

CYLSAVfCYL 

WBUFEA 

GOGO 

PC, BLOCK 

8LK1,P0 

PCCONVPT 

R5 

#171,FUNC 

WCNT2,§RHWC 

RBUFPAfPRHBA 

DSKADP,PRPDA 

PC,RP06CK 

CYL,@RPDC 

CYLSAV,CYL 

RBUFEA 

GOGO 



LOAD WRXfE rUNCTZON 

LOAD WORD COUNf 

LOAD BUrfER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RP06 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULAfED CYLINDER ADDRESS 

LINE UP EA BITS FOR RHCSl 

CONTINUE 

LOAD WRITE"CHECK FUNCTION 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RP06 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULATED CYLINDER ADDRESS 

LINE UP EA BITS FOR RHCSl 

CONTINUE 



I LOAD READ FUNCTION 

> LOAD WORD COUNT 

J LOAD BUFFER ADDRESS 

I LOAD DISK ADDRESS 

I CHECK FOR RP06 DRIVE 

I LOAD CYLINDER ADDRESS 

I RESTORE CALCULATED CYLINDER ADDRESS 

1 LINE UP EA BITS FOR RHCSl 



J COl^TlhUF. 
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46B 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 



t'02f36ti' 
002666' 
f (12674* 
VM'12676' 
00 2 70M' 
0i'^2704' 
0tft2710' 
002716' 
002722' 
002724' 
0027 3(."'' 
002734* 
0027 36* 
^102744* 
002752* 
0M2760' 

002762* 

002770' 
002776* 

00 300 4' 
003006* 
00 3014* 
003020' 
003024* 
003030' 
003034* 
003042' 
003050' 
003056' 
003064' 
00 3070' 
003t»76' 
003104' 
003112' 

003116* 

003116* 



003124' 
003130' 
003132' 
003134' 
003136' 



016777 
012777 
000240 
000241^ 
104407 
104407 
012777 
105777 
100405 
1(^4407 
104407 
000770 
012777 
012777 
016777 
000205 

016777 
012777 
032767 
001434 
017767 
006267 
006267 
006267 
006267 
104416 
016777 
016777 
042767 
000367 
016767 
056767 
016777 
104400 



175500 

000011 



000000' 
0('10000' 

000021 
176446 

0t)0(?!0('»' 
000000* 

177777 

040000 
175410 



175376 
003116' 

001000 

176362 
175260 
175254 
175250 
175244 

000000* 

175234 
175230 
000034 
175214 
175210 
175176 
175160 

000000' 



176512 
176474 



Uf'ITN0,(apHCS2 
#1 1,@RHCS1 



176442 
176416 
176442 



176410 
175012 
175052 

175262 



000276' 
176324 
176362 
175220 

175202 
175164 
176256 



000004 000000' 003124' 



004567 
000205 
005725 
005725 
000205 



KOV 

MOV 

WOP 

NOP 

BREAKS, BEGIN 

BREAKS, BEGlPi 

MOV #21,aRHCSl 

TSTB iPhCSl 

BWI 2$ 

BPEAK$, BEGIN 

BREAKS, BEGIN 

BR IS 

MOV #-l,PRPAS 

MOV #BIT14,0RHCS1 

MOV MCD1,0RPOF 

PTS R5 



MOV 

MOV 

BIT 

BEO 

MOV 

ASR 

ASR 

ASP 

ASR 

HAP22 

MOV 

MOV 

BIC 

SWAB 

MOV 

BIS 

MOV 

EXITS 



UNITN0,(aRHCS2 

#NTRUPT,eVECTOR 

#ADDR22,RES1 

IS 

»PHBA,PA18 

X^'EM 

XMEM 

XMEM 

XMEM 

, bf:gin,pai8 

PA22,0RHBA 
EA22,(aRHBAE 
«34,EA22 
EA22 

EA22#XMEM 
XMEM,FUNC 
FUNC,0RHCS1 
BEGIN 



LOAD UNIT ADDRESS 

ISSUE A DRIVE CLEAR 
WAIT 

FOR DRIVE CLEAR TO FINISH 
TEMPORARY RETURN TO MONITOR.,.. 
THEN CONTINUE AT NEXT INSTRUCTION, 
ISSUE A PACK ACK 

FUNCTION DONE ? 

YES, CONTINUE 
TEMPORARY RETURN TO MONITOR,,., 
THEN CONTINUE AT NEXT INSTRUCTION, 

NO, WAIT TILL DONE 
CLEAR AS BIT 

CLEAR ANY CONTROLLER ERRORS 

SET BIT FOR 11 FORMAT 

RETURN 

LOAD UNIT SELECT 
SET INTERUPT ENTRY POINTER 
U/70? 

NO 

GET 18 BIT ADDR 

SHIFT EA BITS TO POSITION 4,5 



I GET 22-BIT ADDR FROM 18-BIT ADDR 
I LOAD BA PEG 
JLOAO BAE REG 
fCLEAR UNWANTED BITS 
ILOAD INTO BITS 8,9 

ILOAD XMEM TO SET INTO FUNCTION CODE 
?LOAD EXTENDED MEMORY BITS 
lEXECUTE THE FUNCTION 

fEXIT TO MONITOR, MODULE WAIT FOR INTERRUPT, 



PIRCS, BEGIN, IS 



I QUEUE UP TO CONTINUE AT IS AND RTI 



JSR 


R5, ERRORS 


RTS 


R5 


TST 


(R5) + 


TST 


(P5)4- 


RTS 


R5 



I GO CHECK FOR ERRORS 

> ERRORS DETECTED, RETURN 

I NO ERRORS, SKIP RETRY 

f RETURN OK 
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514 


003140' 


016700 


175112 




51S 


003144' 


016703 


174772 




516 


003150' 


132767 


000002 


002402 


517 


003156' 


001451 






518 


003160' 


142767 


000001 


002372 


519 


003166' 


016701 


175124 




520 


003172' 


162701 


000003 




521 


003176* 


005002 






522 


003200' 


160001 






523 


003202' 


022701 


000100 




524 


003206' 


003435 






525 


003210' 


022701 


000040 




526 


003214' 


003005 






527 


003216' 


152767 


000001 


002334 


528 


003224' 


162701 


000040 




529 


003230' 


005701 






530 


003232* 


003425 






531 


003234' 


062702 


002000 




532 


003240' 


005301 






533 


003242' 


003372 






534 


003244' 


005703 






535 


003246' 


100007 






536 


003250' 


042703 


100000 




537 


003254' 


132767 


000001 


002276 


538 


003262' 


001411 






539 


003264' 


000404 






540 


003266' 


132767 


000001 


002264 


541 


003274' 


001002 






542 


003276' 


020203 






543 


003300' 


002402 






544 










545 


003302' 


005725 






546 


003304' 


000205 






547 


003306* 


152767 


000004 


002244 


548 


003314' 


000205 






549 










55P 










551 


M03316' 


012701 


000001 




552 


003322' 


016700 


175036 




553 


003326' 


001403 






554 


003330' 


006301 






555 


003332' 


005300 






556 


003334* 


001375 






557 


003336* 


040167 


175006 




558 










559 










560 










561 


003342' 


104420 


000000' 


000364 


562 


00335^" 


005534' 






563 










564 


003352' 


000207 






565 











ROOMi 



MOV 


BLK1,P0 ) 


MOV 


WBUrsE»R3 f 


BITB 


#BITl»FLAG J 


BEQ 


48 r 


BICB 


#BIT0,FLAG J 


MOV 


MHICYiBl 1 


SUB 


#3, PI 


CLB 


P2 f 


SUB 


R0»P1 > 


CMP 


#64.,R1 r 


BLE 


43 } 


CMP 


»32,,R1 » 


BGT 


1$ ; 


BISB 


#BIT0,FLAG 1 


SUB 


#32.»P1 1 


TST 


Rl J 


BLE 


5$ r 


ADD 


#1024. ,R2 1 


DEC 


Rl > 


BGT 


18 1 


TST 


R3 J 


BPL 


26 1 


BIC 


#BIT15,R3 1 


BITB 


#BIT0»FLAG 1 


BEQ 


5S ) 


BR 


3S ; 


BITB 


#BIT0,FLAG 1 


BNE 


4S ; 


Cf^P 


R2,P3 > 


BLT 


5$ 1 


TST 


CP53+ 1 


PTS 


R5 1 


BISB 


#RIT2»FLAG | 


PTS 


P5 i 


MOV 


»1#R1 i 


MOV 


UMTNO,R0 1 


BEQ 


2S t 


ASL 


Rl f 


DEC 


n</ > 


BNE 


1$ ; 


BIC 


RlfDVICE J 


> 
> 



OTOA S» BEGIN, UN ITNO, ADR 1 



SAVE THE CURRENT BLOCK NUMBER 

GET THE TRANSFER SIZE 

PLENTY OF ROOM LEFT ? 

YES» CONTINUE 

CLEAR 32K INDICATOR 

LOAD MAXt NUMBER OF BLOCKS 

ZERO REG, 2 

GET NUMBER OF BLOCKS LEFT ON DISK 

MORE THAN 64 BLOCKS LEFT I 

YES 

MORE THAN 32K LEFT ? 

NO, CONTINUE 

YES» SET THE INDICATOR 

SUBTRACT 32K WORTH OF BLOCKS 

AN^ BLOCKS LEFT ON DISK I 

NO, RETURN OK 

GET TOTAL # OF WORDS LEFT 

ALL BLOCKS ADDED IN ? 

NO, KEEP ADDING 

REQUEST LARGER THAN 32K ? 

NO, GO CHECK THAT CONDITION 

YES, GET PID OF 32K 

MORE THAN 32K LEFT ? 

NO, RETURN OK 

YES, GO COMPARE 

MORE THAN 32K LEFT ? 

YES, PLENTY OF ROOM, ERROR 

ENOUGH ROOM FOR THE TRANSFER ? 

NO, RETURN OK 

YES, MUST BE A REAL ERROR 
RETURN, ERROR 
SET OVERFLOW FLAG 
RETURN OK 



INITIALIZE DROP PICKER 
GET THE DRIVE NUMBER 
IF DRIVE GO DROP IT 
POINT TO NEXT DRIVE 
IS THIS THE ONE ? 
NO, LOOK AGAIN 
DROP THE DRIVE 

CONVERT UNITNO TO ASCII AND 
STORE AT ADRl 



PTS PC I RETURN 
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566 


tH)3 35 4' 


005777 


176010 




errors: 


TST 


?aphCSl 


J ATTENTION OR ERROR ? 


567 


00 3 360' 


100402 








BMI 


22S 


JYES 


569 


003362' 


000167 


000300 






J MP 


RESYNC 


>N0 GO ON TO NEXT FUNTION 


569 


0f'3 366' 


032777 


001000 


176010 


22SI 


BIT 


»BlT9,iPPERl 


J ADDRESS OVERFLOW ? 


570 


003374' 


001403 








BEQ 


1$ 


J NO, CONTINUE 


571 


003376' 


004567 


177536 






JSP 


R5,R00M 


I YES, IS IT A REAL ERROR ? 


572 


003402' 


000531 








BR 


RESYNC 


J NO, CONTINUE 


573 


003 40 4' 


032777 


002000 


175770 


l$l 


BIT 


#BIT10,9RPDS 


JDID LBT SET? 


574 


003412' 


001125 








BNE 


PESYNC 


JYES 


575 


003414* 


004767 


001152 






JSP 


PCERSUBl 


> LOAD ERROR INFORMATION 


576 


003420' 


005777 


175754 






TST 


0PHCS2 


!IS THIS A DATA LATE ERROR? 


577 


003424' 


100012 








BPL 


US 


?N0 


578 


003 426* 


005267 


174620 






INC 


DLTCNT 


>ADD 1 TO DATA LATE COUNTER 


579 


003432' 


032767 


000004 


174356 




BIT 


#BlT2,SRi 


JTYPE ERROR AND COUNT IT? 


58<^ 


003440' 


001107 








BNE 


8S 


|N0 


581 


003442' 


104403 


000000' 


005510' 




r^'SGNS, 


BEGIN, DLTERR 


JASCII MESSAGE CALL WITH COMMON HEADER 


582 


003450' 


000440 








BR 


9S 


jCONT 


583 


003452' 


032777 


020000 


175710 


USI 


BIT 


#BIT13,?BHCS1 


J MASSBUS CONTROL PARITY ERROR ? 


584 


003460' 


001043 








BNE 


38 


J YES 


585 


003462' 


032777 


000 400 


175710 




BIT 


#RIT8,epHCS2 


I MASSBUS DATA PARITY ERROR ? 


586 


003470' 


001043 








BNE 


48 


J YES 


587 


003472* 


032777 


040000 


175670 




BIT 


#BITl4,!aRHCSl 


J TRANSFER ERROR ? 


588 


003500' 


001015 








BNE 


28 


1 YES 


589 


00 3502' 


032777 


040000 


175672 




BIT 


#BIT14,!?RPDS 


1 ANY DRIVE ERRORS ? 


590 


003510' 


001036 








BNE 


58 


1 YES 


591 


003512' 


005777 


175670 






TST 


9RPAS 


> ANY ATTENTIONS ACTIVE ? 


592 


003516' 


001033 








BNE 


58 


1 YES, CONTINUE 


593 


003520' 


005067 


174362 






CLP 


EPRTYP 


lUNKNOWN ERROR 


594 












.««*##»«»*»«**#4»#»**»**«»#«*»«»<J»«***#«**««««*»««»»»#*»»#««»#»#« 


595 


003524* 


104405 


000000' 


001370' 




HRDERS 


, BEGIN, TABLE 


» SPECIAL CONDITION SET BUT NO REASON FOUND 


596 












;#»»«.«*#»*##«#«»##«#»##«»#»*##*»*#»#»«#««»»»*«#«*«#*#*«*«»»»»»«# 


597 


003532' 


000452 








BR 


88 


1 RETURN 


598 


003534' 








2Si 








599 


003534' 


104403 


000000' 


005452' 




MSGN8, 


BEGIN, TRERR 


fASCII MESSAGE CALL WITH COMMON HEADER 


600 


003542' 


032777 


062000 


175630 




BIT 


#BlTl4lBITl3|BIT10,aRHCS2 fSOFT ERROR? 


601 


003550' 


001416 








BEQ 


58 


IHARD ERROR 


602 


003552' 


012767 


000030 


174326 


9$i 


MOV 


#30,ERRTYP 




603 












J#«#*#*»«*»*»*«»*#«««««#»»##«##**»*#«»4H»**#*»»#»»#»####«««###»##« 


604 


003560' 


104406 


000000' 


001370' 




SOFERS 


, BEGIN, TABLE 


ITRANSFER ERROR 


605 












f#«««**#»#*#«it««4»»»#»««»#»#»«*#«##»*##»««*#«#«««»»««»#*»»#««#*#*# 


606 


003566* 


000434 








BR 


88 




607 


003570' 








3$i 








608 


003570' 


104403 


000000' 


005456' 




MSGNS, 


BEGIN, MCPERR 


lASCII MESSAGE CALL WITH COMMON HEADER 


609 


003576' 


000403 








BR 


58 


> GO DUMP REGISTERS 


610 


003600' 








4$i 








611 


003600' 


104403 


000000' 


005462' 




MSGNS, 


BEGIN, MDPERR 


lASCII MESSAGE CALL WITH COMMON HEADER 


612 


003606* 


005777 


175574 




5St 


TST 


PPPAS 


J ANY ATTENTIONS ACTIVE ? 


613 


003612' 


001402 








BEQ 


68 


1 NO, CONTINUE 


614 


003614* 


004767 


000566 






JSR 


PC, WHO 


1 YES, ^IND OUT WHICH DRIVE IT IS 


615 


003620' 


016700 


175566 




6$l 


MOV 


RHDB,P0 


1 SAVE ADDRESS OF DATA BUFFER 


616 


003624' 


105777 


175550 






TSTB 


!8RHCS2 


f CAN DATA BUFFER BE READ ? 


617 


003630' 


100403 








BMI 


78 


1 YES, CONTINUE 


618 


003632' 


012767 


000344* 


175552 




MOV 


»ZERO,RHDB 


J NO, LOAD ADDRESS OF ZERO 


619 


003640' 


012767 


000030 


174240 


7S1 


MOV 


#30, EPRTYP 


JERROR DUPING DATA XFER 


620 












J ««»«*»»»«»#««»#««##»»»«»»»»»#»#««#»»#»#««««««»««#»»#«#»»###*#*» 


621 


003646* 


104405 


000000* 


001370' 




HRDERS 


, BEGIN, TABLE 


1 DUMP RHU AND RP REGISTERS 
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622 

623 003654' 010067 175532 

624 003660* 004567 176774 

625 003664' 000205 



HOV P0^RHDB ) RESTORE DATA BUFFER ADDRESS 

JSR P5, CLEAR IGO CLEAR OUT ERRORS 

RTS R5 } ERRORS DETECTED, RETURN 
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ft26 


003666* 


005725 






fe27 


00 36 70' 


£-'(^0205 






629 










629 










63<? 










631 










632 










633 










634 


003672' 


1^05267 


174360 




635 


VHM676' 


132767 


00t1t'102 


001654 


636 


Ov53 704' 


001012 






637 


003706' 


026767 


174402 


174342 


638 


1*03714' 


101017 






639 


0(;''3716' 


ti05067 


174334 




640 


t'037 22' 


152767 


000002 


0016 30 


641 


c;'-5 37 30' 


000411 






b42 










643 


l'03732' 


026767 


174360 


174316 


644 


»rn?374e' 


101005 






645 


0M3742' 


005067 


1743101 




646 


tV3746' 


142767 


000002 


001604 


647 


15^0754' 


000207 







PE5YNCJ TST 
RTS 



(P5) + 

P5 



t NO ERRORS, SKIP RETRY 
> RETURN OK 



;THIS ROUTINE DETFPfl^ES IF TriEHE IS ENOUGH ROOM ON THE DISK TO 
;D0 ftNOThFR TRANSFER, IF NOT, PROGRAM GOES TO RESYNC TO 
■ALLOUi BOTH PPOCESSORS TO RESYNC AND TO RESTART, 

I STEP TO NEXT BLOCK 

; BLOCK » IN CYLINDER 512, OR HIGHER ? 

; YES, GO ADJUST BLOCK # 

f BLOCK « IN CYLINDER 512, OR LOWER ? 

I YES, RETURN 

J NO, RESET BLOCK » 

i SET HIGH RANGE FLAG 

» RETURN 

I BLOCK # IN WITHIN RANGE ? 

J YFS, RETURN 

I NO, RESET BLOCK » 

I SET FLAG TO LOImER RANGE FOR NEW PACK CYCLE 

I RETURN 



INC 


BLKl 




BITB 


»BIT1, 


»FLAG 


BNE 


1$ 




CMP 


f*'L0WCY,BLKl 


BHl 


2S 




CLR 


8LK1 




BISB 


»RIT1< 


rFLAG 


BP 


2$ 




CMp 


MHICY, 


,BLK1 


BHI 


2S 




CLR 


BLKl 




BICE 


#81T1( 


-FLAG 


PTS 


PC 





RPBI DiC/Xll SYSTEM EXiRCISER MODULE 
XltPBl0,Pil 0S»rEB<»79 09123 



HACYll 30A(1032) 0S»r£B»?9 



648 


003756' 


005067 


174276 




649 


003762' 


005067 


174276 




6S0 


003766' 


105067 


001S67 




6S1 


003772' 


016701 


174312 




6S3 










633 


003776' 


016702 


174304 




654 


004002' 


132767 


000002 


001330 


6SS 


004010' 


001403 






6S6 


004012* 


012767 


000632 


174240 


637 


004020' 


020001 






6se 


004022* 


103404 






639 


004024' 


003267 


174230 




660 


004030' 


160100 






661 


004032' 


000772 






662 


004034' 


020002 






663 


004036' 


002404 






664 


004040* 


105267 


001515 




663 


004044' 


160200 






666 


004046' 


000772 






667 


0040S0' 


005700 






668 


004052' 


001405 






669 


004054' 


062767 


000004 


174202 


670 


004062' 


005300 






671 


004064' 


000771 






672 


004066' 


122767 


000022 


001465 


673 


004074' 


001007 






674 


004076' 


026767 


174210 


174160 


675 


004104' 


001003 






676 


004106' 


162767 


000002 


174150 


677 


004114' 


016767 


174144 


174224 


678 


004122* 


116767 


001433 


174217 


679 


004130' 


000207 






680 










681 










682 


004132' 


016767 


174122 


174122 


683 


004140' 


022777 


024022 


175250 


684 


004146' 


001413 






685 


004150* 


022777 


020022 


175240 


686 


004156' 


001407 






687 


004160* 


132767 


000002 


001372 


688 


004166' 


001403 






689 


004170' 


162767 


000632 


174062 


690 










691 


004176* 


000207 






692 










693 











CONVRTI 


CLR 


ai 1 




CLR 


SIC f 




CLRB 


TRK f 




MOV 


MBLKTR^Rl f 




MOV 


MBLKRV»R2 f 




BXTB 


#BITl,rLAG i 




BEQ 


11 f 




MOV 


»410.iCYL } 


111 


CMP 


R0fRl. 1 




BLO 


21 f 




INC 


CYL 1 




SUB 


Rl,R0 i 




BR 


19 t 


2$l 


CMP 


R0fR2 } 




BLT 


3$ 1 




INCB 


TRK > 




SUB 


R2,B0 J 




BR 


28 t 


3SI 


TST 


R0 I 




BEQ 


4$ J 




ADD 


#4, SEC J 




DEC 


R0 } 




BR 


38 1 


4$l 


CMPB 


#18,, TRK 1 




BNE 


58 } 




CMP 


MODE, SEC 1 




BNE 


58 1 




SUB 


»2,SEC 1 


5$t 


MOV 


SECDSKADP » 




MOVB 


TRK,DSKADP+1 f 




BTS 


PC > 


i 

BP06CKI 


MOV 


CyL,CYLSAV 1 




CMP 


#24022, appDT > 




BEQ 


IS 1 




CMP 


#20022, 0BPDT f 




BEQ 


18 1 




BITP 


#BIT1,FLAG > 




BEQ 


18 ; 




SUB 


#410,, CYL 1 
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CLEAR DISK ADDRESSES 



LOAD REG, 1 WITH BLK PER TRACK 

REG HAS BLKl (BLOCK «} lU XT 

LOAD REG. 2 WITH BLK PER REVOLUTION 

BLOCK # ON CYLINDER SUs OR LOWER ? 

YES, CONTINUE 

NO, LOAD HIGH BASE VALUE FOR CYLINDER ADR« 

CORRECT CYLINDER FOUND I 

YES, CONTINUE 

NO, STEP TO NEXT CYLINDER 

SUBTRACT 1 CYLINDER FROM BLOCK # 

CONTINUE UNTIL CORRECT CYLINDER IS FOUND 

CORRECT TRACK FOUND 7 

YES, CONTINUE 

NO, STEP TO NEXT TRACK 

SUBTRACT 1 TRACK FROM BLOCK # 

CONTINUE UNTIL CORRECT TRACK IS FOUND 

CORRECT SECTOR FOUND ? 

YES, CONTINUE 

NO, STEP TO NEXT 1024 WORDS 

DECREASE BLOCK # BY 1 

CONTINUE UNTIL CORRECT SECTOR IS FOUND 

LAST TRACK ? 

NO, CONTINUE 

YES, LAST SECTOR ? 

NO, CONTINUE 

YES, ADJUST SECTOR SO NO OVERFLOW 

LOAD SECTOR INTO DISK ADDRESS 

LOAD TRACK INTO DISK ADDRESS 

RETURN 



SAVE THE CALCULATED ADDRESS 

DUAL PORT RP06 ? 

YES 

NO, ..SINGLE PORT RP06 ? 

YES 

NO,,,RP04/5 - HI-RANGE BIT SET ? 

NO... DON'T WORRY ABOUT UPPER CYLINDERS 

YES... TRUNCATE HI-RANGE RP06 ADDRESS INTO 

410 CYLINDER RP04/RP05 RANGE 
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694 
695 
696 
697 
698 
699 
700 
701 
7M2 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 



004 200' 

004204' 

004212' 

004220* 

C04222' 006267 

004226' 103364 

0042 30' 

004232' 

G04240' 

004246' 

004254' 



005267 

142767 

022767 

551404 



000411 
152767 
012767 
016767 

000207 



004256' 
004264' 
004270' 
004276* 
004300* 
004304' 
004310' 
004314' 
004316' 
004324' 
004326' 
004332' 
004336' 
004340* 
004344' 



012767 
005077 
032777 
001013 
104407 
104407 
005367 
001363 
104403 
000405 
004567 
004567 
000422 
004767 
012767 



004352' 104405 



004360' 
004366' 
004372' 
004400* 
004404' 



012777 
004767 
104403 
000167 
000207 



S 74160 

000010 
0000 Ivl 



000010 
177777 
174C'76 



077777 
175136 

004000 

000000' 
000000' 

173740 



001346 
174144 



001320 
174116 
174076 



173770 
175072 



INC 

BICB 

CMP 

BEQ 

ASR 

BCC 

BR 

BISB 

MOV 

MOV 

RTS 



UNITNO 

«PIT3,FLAG 

#8,,UNITN0 

xs 

DRIVE 

FDUMT 

2$ 

#BIT3,FLAG 

#-l,UNlTNO 

DVICE, DRIVE 

PC 



COUNT A DRIVE 

CLEAR END OF DRIVES FLAG 

ALL DRIVES CHECKED ? 

YES, GO FLAG END OF DRIVES 

NO, IS NEXT DRIVE CHOSEN ? 

NO, GO TRY ANOTHER DRIVE 

BETURW 

SET E^iD OF DRIVES FLAG 

RESET DRIVE COUNTER 

RESTORE CHOSEN DRIVES 

RETURN 



;SEIEE THE DRIVE BY READING CSl REG 



NOTRDYI 
481 



000000' 005514' 



176326 

000122 



000226 
000006 



000013 
176724 

000000' 

175600 



173534 

001370' 

175002 

005524' 



MOV 
CLR 
BIT 

BNE 



#77777, CLK 

PRPCC 

«PITll,(aRHCSl 

28 



BREAKS, BEGIN 

BREAK8, BEGIN 

DEC CLK 

BME 48 

MSGN6, BEGIN, NOT jASCII 



BR 

JSR 

JSR 

BR 

JSR 

MOV 



58 

R5, CLEAR 
R5, READY 
18 



PCERSUBl 
#6,ERRTYP 
I «■»«««««»««##«»«##«««# 
HPDER8, BEGIN, TABLE 
I «#««#*##*####»«####«# 
MOV #l3,(aRHCSl 
JSR PC, DROP 
MSGNS, BEGIN, DRP fASCII 
JMP FINI 
RTS PC 



t SET THE TIMER 
IGRAB THE DRIVE 
>D0 I HAVE THE DRIVE DVA? 
lYES 

ITEMPORARY RETURN TO MONITOR,.., 
ITHEN CONTINUE AT NEXT INSTRUCTION, 
ICOUNT # OF TRIES 
I NOT DONE SfET 
MESSAGE CALL WITH COMMON HEADER 
ICOULD NOT GET DRIVE 
» RESET THE CONTROLLER AND DRIVE 

> IS DRIVE READY ? 
J YES, CONTINUE 

» LOAD ERROR INFORMATION 
JDEVICE OFF LINE 

> COULD NOT GET DRIVE ,,. TIME-OUT 

JRELEASE DRIVE 
J NO, DROP THE DRIVE 
MESSAGE CALL WITH COMMON HEADER 
JCOULD NOT GET DRIVE DROP MODULE 
IRETURN 
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734 


004406' 


017701 


174774 


WHO! 


MOV 


i»l>AS,Rl 


GET THg ATTENTION gUHMARt 


73S 


004412' 


017704 


174762 




MOV 


iRHCS2#R4 


SAVE THE STATUS RSOISIER 


73& 


004416' 


012702 


000001 




MOV 


»Blf0iB2 


SET POINTER TO DRIVE 


737 


004422' 


00S003 






CLB 


R3 


ZERO THE DRIVE COUNTER 


73S 


004424' 


030201 




Ill 


BIT 


R2#R1 


riND IT 1 


739 


004426' 


001006 






BNE 


2$ 


YBSf CONTINUE 


740 


004430' 


00S203 






INC 


R3 


no, INCREMENT THE DRIVE COUNTER 


741 


004432' 


006302 






ASL 


R2 


SET POINTER TO NEXT DRIVE 


742 


004434' 


032702 


000400 




BIT 


«fBlT8,R2 


ALL DONE 1 


743 


004440' 


001771 






BEO 


1$ 


NOr GO AGAIN 


744 


004442' 


000207 






PTS 


PC 


SOMEBODY LIED — NO ATTENTIONS 


74S 


004444' 


042704 


000007 


2SI 


BIC 


#7#R4 


CLEAR OUT OLD UNIT NUMBER 


746 


004430' 


050304 






BIS 


R3,R4 


LOAD THE NEW UNIT NUMBER 


747 


004452' 


010477 


174722 




MOV 


R4,(?RHCS2 


RESTORE THE STATUS REGISTER 


748 
749 
750 
751 


004456' 
004460' 


000207 
016777 


173700 


174712 PEADYi 


RTS 


PC 


RETURN 


MOV 


UNITN0,@RHCS2 


LOAD UNIT ADDRESS 


752 


004466* 


017700 


174710 




MOV 


9RPDSfR0 


SAVE STATUS IN R0 


753 


004472' 


105700 






TSTB 


B0 


DRIVE READY ? 


7S4 


004474' 


100022 






BPL 


1$ 


NO 


755 


004476' 


032700 


000100 




BIT 


#BIT6#R0 


VOLUME VALID 7 


756 


004502' 


001417 






BEO 


IS 


NO 


757 


004504* 


032700 


000400 




BIT 


#BIT8,R0 


DRIVE PRESENT ? 


758 


004510' 


001414 






BEQ 


1$ 


NO 


759 


004512* 


032700 


004000 




BIT 


#BIT11,R0 


WRITE LOCKED ? 


760 


004516* 


001011 






BNE 


IS 


YES 


761 


004520* 


032700 


0100PM 




BIT 


#8IT12#R0 


MEDIUM ON LINE ? 


762 


004524' 


001406 






BEU 


IS 


NO 


763 


004526* 


032700 


040000 




BIT 


»BIT14,R0 


ANY ERRORS ? 


764 


004532* 


001003 






BNE 


IS 


r YES 


765 


0045 34* 


005700 






TST 


R0 


ATTENTION SET ? 


7b6 


0045 36* 


100401 






BMl 


1$ 


YES 


767 


004540' 


000205 






RTS 


R5 


RETURN READY 


760 


004542* 


005725 




l$t 


TST 


CP5) + 


SKIP INSTRUCTION FOLLOWING CALL 


769 
770 
771 
772 
773 


004544* 


000205 






PTS 


R5 


RETURN AS NOT READY 


004546* 


014167 


173334 


EPSUB2t 


MOV 


-CR1),ASB 


LOAD THE DATA 


774 


004552* 


010167 


173324 




MOV 


R1#SBADP 


UOhO ADDRESS OF DATA WRITTEN 


775 


004556' 


014267 


173326 




MOV 


-(R2)»AWAS 


LOAD THE DATA 


776 


004562* 


010267 


173316 




MOV 


R2#WASADR 


LOAD ADDRESS OF DATA READ 


777 


004566' 


005721 






TST 


(Pl) + 


RESET REG, 1 


77? 
779 


004570' 


005722 






TST 


(R2) + 


RESET REG, 2 


00457 2* 


016767 


174572 


173300 EBSUBII 


MOV 


RHCS1,CSRA 


LOAD ADR OF CURRENT CSR 


781 


004600* 


017767 


174564 


173274 


MOV 


0PHCSI#ACSR 


LOAD CONTENTS OF CURRENT CSR 


782 


00 4606* 


000207 






PTS 


PC 


RETURN 
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783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 



0046U1* 012777 

004616' 012777 

004624' 012767 

004632* 105777 

004636* 100417 

0tH640' 104407 

,04644* 104407 



004650' 
004654* 
004656* 
004662' 



005367 
001366 
005067 
012767 



000040 

177777 
077777 
174532 

000000* 
000000* 

17 3400 
173466 

000003 



174562 
174562 
173422 



00 4670* 104405 000000' 001370' 
004676' 000207 



MOV 
MOV 
MOV 
TSTB 

BMI 



#BIT5,0RHCS2 
#-l,iRPAS 
#77777, CLK 

SRHCSl 
2S 



I ISSUE AN RHll INIT 

ICLEAR ALL ATA BITS 

> SET THE TIMER 

I CONTROLLER READY ? 

J YES, CONTINUE 

ITEMPORARY RETURN TO MONITOR.,,, 

jTHEN CONTINUE AT NEXT INSTRUCTION, 

I WAIT SOME MORE ? 

f YES 

I NO, SET TO DROP THE MODULE 

JCONTROLLER NOT READY 

HPDERS, BEGIN, TABLE > CONTROLLER NOT READY 

RTS PC i RETURN 



BREAKS, BEGIN 
BREAKS, PfcGIM 
DEC CLK 
BNE IS 
CLR DVICE 
MOV #3»ERRTYP 



RPBI DIC/Xll SYSfEM EXERCISER MODULE 
XRPBI0,PU 08«FEi-79 09s23 



MACYil 30AC10523 08«FEB«79 09l26 PAGE 24 



SEQ 011^23 



80S 


004700' 


016700 


173102 


806 


004704* 


010067 


174460 


807 


004710' 


003720 




808 


004712' 


010067 


1744S4 


809 


004716' 


005720 




810 


004720* 


010067 


174450 


811 


004724' 


005720 




812 


004726' 


010067 


174444 


813 


004732' 


005720 




814 


004734' 


010067 


174440 


815 


004740' 


005720 




816 


004742' 


010067 


174434 


817 


004746' 


005720 




818 


004750' 


010067 


174430 


819 


004754' 


005720 




820 


004756' 


010067 


174424 


821 


004762' 


005720 




822 


004764' 


010067 


174420 


823 


004770* 


005720 




824 


004772' 


010067 


174414 


825 


004776* 


005720 




826 


005000' 


010067 


174410 


827 


005004' 


005720 




828 


005006' 


010067 


174404 


829 


005012' 


005720 




830 


0H5014' 


010067 


174400 


831 


005020' 


005720 




832 


005022' 


010067 


174374 


833 


005026' 


005720 




834 


005030' 


010067 


174370 


835 


00S034' 


005720 




836 


0H5fc)36' 


010067 


174364 


837 


005042' 


005720 




838 


00504 4' 


Hi0067 


174360 


839 


00505t^' 


005720 




840 


005052' 


Mi0067 


174354 


841 


005056' 


005720 




842 


005060* 


010067 


174350 


843 


005064' 


005720 




844 


005066* 


010067 


174344 


845 


00507 2' 


tT32767 


001000 


846 


f'05l00' 


001406 




847 


M05102' 


005720 




848 


t-)05104' 


010067 


174330 


849 


005 llt^' 


00572t^ 




850 


005112' 


010067 


174324 


851 


("<15116* 


016 700 


172666 


852 


0^^5122' 


012720 


001754' 


853 


iH^5126' 


116710 


172660 


854 


fr"^)5t12' 


0«0207 





MOV 


ADDPrPe 


J GET DEVICE ADDRESS 


MOV 


P0,BHCS1 


t GENERATE REGISTER ADDBESi 


TST 


(B0) + 




MOV 


R0,RHWC 




TST 


(R0) + 




MOV 


R0,RHBA 




TST 


(R0) + 




MOV 


B0,PPDA 




TST 


tR0)t 




MOV 


R0,BHCS2 




TST 


CR0) + 




MOV 


B0,RPDS 




TST 


(R0) + 




MOV 


R0,RPER1 




TST 


(R0) + 




MOV 


R0,PPAS 




TST 


(P0) + 




MOV 


R0,PPLA 




TST 


(P0) + 




MOV 


R0,PHDB 




TST 


(P0) + 




MOV 


R0,RPMB 




TST 


CP0) + 




MOV 


B0,RPDT 




TST 


(P0) + 




MOV 


R0,RPSN 




TST 


(P0) + 




MOV 


H0,PPOF 




TST 


CP0) + 




MOV 


B0,RPDC 




TST 


CP0) + 




MOV 


R0,PPCC 




TST 


(P0) + 




MOV 


R0,PPER2 




TST 


(R0) + 




MOV 


R0,RPER3 




TST 


(P0) + 




MOV 


R0,RPECl 




TST 


CR0) + 




MOV 


R0,PPEC2 




BIT 


#ADDP22»PES1 


111/70? 


BEG 


IS 


>N0 


TST 


(P0) + 




MOV 


RP,PHBAE 




TST 


(R0) + 




MOV 


P0,RHCS3 




MOV 


VPCTOR#R0 


1 GET VECTOR ADDRESS 


MOV 


ff5TPT,(P0)+ 


1 SET POINTER JUST IN CASE 


MOVB 


BFl»CP0) 


f SET PRIORITY 


RTS 


PC 


> RETURN 



^^1 
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855 


k)05134' 


i>7i^ii4id 


051124 


047101 


MESl! 


.ASCIZ 


856 


(■'1^5142' 


043123 


051105 


020040 






857 


(•.'05 150' 


051105 


047522 


022522 






858 


005156' 


000 










859 


005157' 


040 


046440 


051501 


MES2I 


.ASCIZ 


860 


005164* 


041123 


051525 


020040 






8fol 


005172' 


040520 


044522 


054524 






862 


005200* 


020040 


051105 


047522 






863 


005 206' 


022522 


000 








864 


005211' 


040 


046440 


051501 


MES3I 


.ASCIZ 


865 


005216* 


041 J 23 


051525 


020040 






866 


005224' 


040504 


040524 


020040 






867 


005232' 


040520 


044522 


054524 






868 


005240' 


020040 


051105 


047522 






869 


005246' 


^"22522 


000 








870 


005 251' 


040 


042040 


044522 


f<ES4l 


.ASCIZ 


871 


005256' 


042526 


020040 


000 






872 


005263' 


040 


042040 


047522 


MES5I 


.ASCIZ 


873 


005270' 


050120 


042105 


000045 






874 


005276' 


051040 


052105 


054522 


MES6I 


.ASCIZ 


875 


005304' 


042440 


041530 


042505 






876 


005312* 


042504 


022504 


000 






877 


005317' 


040 


020040 


051127 


MES7! 


.ASCIZ 


878 


005324' 


052111 


000105 








879 


0053 30' 


020040 


053440 


044522 


MES8I 


.ASCIZ 


880 


005 3 36' 


042524 


041455 


042510 






881 


005 344' 


045503 


000 








882 


005347' 


040 


020040 


042522 


MES9I 


.ASCIZ 


883 


005354' 


042101 


000 








884 


005357' 


040 


040504 


040524 


MES10J 


.ASCIZ 


885 


005 364' 


046040 


052101 


020105 






886 


005372' 


051105 


047522 


022522 






887 


005400' 


000 










888 


005401' 


040 


051104 


053111 


MESUl 


.ASCIZ 


889 


005406' 


020105 


047516 


020124 






890 


005414' 


042522 


042101 


022531 






891 


005422' 


000 










892 


005423' 


040 


047503 


046125 


MES12> 


.ASCIZ 


893 


005430' 


020104 


047516 


020124 






894 


005436* 


042507 


020124 


051104 






895 


005444' 


053111 


022505 


000 






896 




005452' 








.EVEN 


897 


005452' 


005134' 






TRERRJ 


MESl 


898 


005454' 


177777 








177777 


899 


005456' 


005157' 






MCPERRI 


MES2 


900 


00S460' 


177777 








177777 


901 


005462* 


005211' 






MDPERRS 


MES3 


902 


005464* 


177777 








177777 


903 


005466' 


005317' 






EXCEDll 


MES7 


904 


005470' 


005276* 








MES6 


905 


00S472' 


177777 








177777 


906 


003474* 


005330' 






EXCED2I 


MES8 


907 


005476* 


005276' 








MES6 


908 


005500* 


177777 








177777 


909 


005502' 


005347' 






EXCED3I 


MES9 


910 


005504* 


005276* 








MES6 
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TRANSFER ERBOR%' 



MASSBUS PARITY ERROR%' 
MASSBUS DATA PARITY ERROR%' 

DRIVE ' 
DBOPPED%' 
PETRY EXCEEDED%' 

WRITE' 
WPITE-CHECK' 

READ' 
DATA LATE ERROR%' 

DRIVE NOT PEADY%' 

COULD NOT GET DRIVE%' 
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911 


00S506' 


177777 


912 


005510' 


005357 


913 


005512' 


177777 


914 






915 


00S514' 


005401 


] 916 


005516* 


177777 


917 


005520* 


005423 


918 


005522* 


177777 


919 






920 


005524* 


005251 


921 


005526* 


005541 


922 


005530' 


005263 


923 


005532* 


177777 


924 






925 


005534' 


000005 


926 


005541' 


000 


927 


005542* 


000 


928 




005544 


929 


005544* 


000 


930 


005545* 


000 


931 


005546' 


000 


932 


005547' 


000 


933 


005550' 


000 


934 


005551' 


000 


935 


005552' 


000 


936 


00555 3' 


000 


937 


005554' 


000 


938 


005555* 


000 


939 


005556* 


000 


940 


005557* 


000 


94J 


005560* 


000 


942 


t)0556l' 


000 


943 


0V5562' 


000 


944 




0U5564 


945 






946 






947 

1 




000001 





177777 




DLTEPRI 


MES10 
177777 




NOTI 


MESH 
177777 




TOUTI 


MES12 
177777 




DBPI 


MES4 
NUMB 
MESS 
177777 




ADBll 


,BLKB 


5 


NUMBI 


.BYTE 







.BYTE 







.EVEN 




TBYlf 


.BYTE 





TRY2I 


.BYTE 





TRY3: 


.BYTE 





TRY4I 


.BYTE 





TBY5I 


.BYTE 





TRY6I 


.BYTE 





TRY7I 


.BYTE 





TBY8I 


.BYTE 





TBY9I 


.BYTE 





TBY10J 


.BYTE 





TRYllJ 


.BYTE 





TPYi2t 


.BYTE 





FLAGi 


.BYTE 





TRKI 


.BYTE 





FIX! 


.BYTE 
.EVEN 






J NEED DO NOT DELETE FPOM CODE 
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ABW 

ACSP 

ADDP 

RDDP22= 

ADBl 

ASB 

ASTAT 

AWAS 

BEGIN 



BIT0 = 

BIT! a 

BIT 10 a 

BITll a 

BIT12 a 

BIT13 a 

BIT14 a 

BIT15 a 

BIT2 a 

BIT3 a 

BIT4 a 

BITS a 

B1T6 = 

BIT7 a 

BIT8 a 

BIT9 a 

BLKSAV 

BLKl 

BLOCK 

BREAK$3 

BRl 

BB2 

BTOD$ a 

BUFIN 

CDATASs 

CDEBCT 

CDWDCT 

CLEAR 

CLK 

CNT 

CONFIG 

CONVPT 

CSBA 

CT 

CYCLE 

CYL 

CYLSAV 

DAOCL 

DAOST 

DATCKgs 

DAfER$e 

DLTCNT 

DLTERR 

DRIVE 

DROP 



fr'02e36P 

tH',i,il02R 

00U!0t' 

t'0553 4B 

00(r'106P 

KMU10 4P 

000Uf^R 
f*!i00^)tiR 



000001 
000002 

00 200t> 
0^14000 

li2000f'' 

t''4000t^ 

lt1M000 
000004 

000010 
000020 

000040 

000100 
000 200 

000 40(^ 

001000 

000354P 

000256P 

003672P 

104407 

000012R 

<'^00013B 

J04421 

000370R 

104412 

000144B 

000146R 

002660R 

000254R 

000266R 

000056R 

003756B 

000100R 

001706R 

002174R 

000260R 

000262R 

002124R 

001574R 

104411 

104404 

000252R 

005510P 

000J52R 

0033i6R 



361 


363# 
















193« 


781* 
















159« 


805 
















222* 


487 


845 














561 


925# 
















197« 


773« 
















195lf 


















198!» 


775» 
















1561? 


346 


351 


384 


387 


391 


399 


406 


413 


478 


494 


502 


506 


561 


581 


595 


599 


604 


715 


718 


726 


730 


794 


795 


801 






222» 


415 


518 


527 


537 


540 


736 






222» 


516 


635 


640 


646 


654 


687 






222»i 


573 


600 














222« 


712 


759 














222« 


303 


761 














222» 


583 


600 














222*» 


481 


587 


589 


600 


763 








222« 


536 
















222» 


375 


377 


547 


579 










222« 


360 


695 


701 












222« 


















222# 


305 


789 














222« 


755 
















222« 


















222!» 


585 


742 


757 












222» 


569 
















265« 


349# 
















224# 


3i9# 


349 


378« 


455 


514 


634* 


637 


639* 


454 


634# 
















222# 


472 


473 


477 


478 


714 


715 


794 


795 


161« 


853 
















162# 


















222« 


















204 


271# 
















222# 


384 
















212» 


















213« 


















468« 


624 


720 














223# 


710« 


716* 


791* 


796« 










228# 


296 


301» 














191# 


















456 


648# 
















19l# 


780# 
















338 


339# 
















386» 


















225« 


441 


442« 


450 


451« 


464 


465* 


648* 


656* 


226# 


442 


451 


465 


682« 










377» 


















317« 


















222# 


















222» 


















222# 


302# 


578» 














581 


912# 
















264# 


317* 


330 


340# 


69B« 


703# 








333 


417 


551# 


729 













472 
611 



473 
621 



477 
714 
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SEQ 0027 



DBP 


005924R 


418 


730 


920# 








OSKADR 


00034dR 


262# 


439 


448 


462 


677# 


67S« 


DVICE 


000390R 


263# 


3I6# 


317 


340 


341 


3S7 


DVIDl 


000014R 


163# 


316 










EA22 


000304R 


239« 


496 


497# 


498« 


499 




ENDITle 


104413 


2221 


317 










END! a 


104410 


222# 


391 










ERRORS 


003354R 


S09 


S66# 










ERRTYP 


000106R 


196# 


S93# 


602« 


619« 


724# 


799# 


ERSUBl 


004572R 


575 


723 


780» 








ERSUB3 


004546R 


773# 












EXCEDl 


005466R 


399 


903» 










EXCED2 


00S474R 


406 


906# 










EXCED3 


005502R 


413 


9098 










EXITS s 


104400 


222# 


502 










FDUNIT 


004200R 


354 


694# 


699 








FERADR 


000274R 


23i# 


295 










FINI 


002204R 


343 


359 


390# 


731 






FIX 


005562R 


943# 












FLAG 


005560R 


315» 


360 


375 


377« 


516 


51B» 






654 


687 


6954* 


701» 


941# 




FREE 


000150R 


214# 












FUNC 


000270R 


229# 


436« 


445» 


459# 


5004* 


501 


GETPA$s 


104415 


222# 


346 










GOA 


002144R 


376 


380# 


404 








GOB 


002154R 


382# 


411 










GOGO 


002762R 


444 


453 


467 


485# 






GOS 


002104R 


373# 


397 










GWBUF$a 


104414 


222# 


351 










HRDCNT 


000044R 


176« 












HRDER$s 


104405 


222# 


595 


621 


726 


801 




HRDPAS 


000050R 


1788 












ICONT 


000036R 


173# 












ICOUNT 


000040R 


174# 












IDNUM 


f500122R 


203# 












IMODX.s 


000000 


215# 


352 










INIT 


000030R 


170# 












INTR 


000120R 


202# 


300* 










MAP22$8 


104416 


222« 


494 










MBLKRV 


000306R 


240» 


309 


653 








MBLKTR 


000310R 


241# 


651 










MCPEPR 


0fcf5456R 


608 


899» 










MDPERR 


005462R 


611 


901# 










MESl 


005134R 


855« 


897 










MES10 


005357R 


884# 


912 










MESll 


005401R 


888# 


915 










MES12 


005423R 


892# 


917 










MES2 


005157P 


859« 


899 










MES3 


0052UP 


864» 


901 










MES4 


00525 IP 


B70S 


920 










MES5 


005263R 


872» 


922 










MES6 


v.'05276R 


874# 


904 


907 


910 






MES7 


005317R 


B77» 


903 










HESS 


005330R 


879# 


906 










MES9 


005347R 


Bsa* 


909 










MHICY 


000316R 


244# 


519 


643 









SS7# 



703 



5274* 
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MLOWCY 


000314P 


MODE 


000 3 12R 


MODNAN' 


000000R 


MODSP 


000252R 


MODI 


000366P 


MSGNS = 


104403 


MSGS$ 3 


104402 


MSGS = 


104401 


NEXT 


002000P 


NEXTA 


002332R 


NOT 


005514R 


NOTRDY 


004256R 


NTRUPT 


003U6R 


NULL 3 


000000 


NUMB 


005541R 


NXTl 


002210R 


ONCEE 


000272R 


OPEN s 


000000 


OTOA$ s 


104420 


PASCNT 


000034R 


PA18 


000276R 


PA22 


000302R 


P1R0$ 3 


000004 


POPSP s 


005726 


P0PSP2S 


022626 


PRTY s 


000000 


PPTY0 a 


000000 


PRTYl = 


000040 


PRTY2 a 


000100 


PRTY3 a 


000140 


PRTY4 9 


000200 


PRTY5 B 


000240 


PPTY6 a 


000300 


PBTY7 8 


000340 


PS 3 


177776 


PSW a 


177776 


PUSH B 


005746 


PUSH2 » 


024646 


RAND$ s 


104417 


RANNUM 


000054R 


RBUFEA 


000130R 


RBUFPA 


000126B 


RBUFSE 


000132R 


RBUFVA 


000124R 


READ 


002566R 


READY 


004460R 


RESTRT 


001734R 


RESYNC 


003666R 


RESl 


000056R 


RES2 


000060R 


RETRYl 


002214R 


RETRY2 


002246R 


HETRY3 


002300R 


REEET 


004610R 



243» 

242# 

157« 

171 

270« 

222« 

222# 

222» 

354« 

400 

718 

366 

486 

222« 

921 

393# 

230« 

158 

193 

213 

222# 

172# 

236# 

238» 

2221 

222« 

222# 

222» 

162 

222« 

222# 

222# 

222# 

161 

222# 

222« 

222# 

222i( 

222# 

222# 

222# 

180K 

206# 

205» 

207# 

204« 

382 

364 

199 

568 

lfi2# 

183# 

374 

381 

383 

337 



637 
674 

220# 
303# 
399 



389 

407 

915# 

710# 

504# 

926«f 

314« 

164 

195 

214 

561 

489* 
495 

506 



222# 



467 

384 

347 

346 

459# 

721 

342 

572 

487 

394# 

401# 
4081 
789# 



307* 
406 



393 

414 



165 
197 
222# 



482 
413 



419 
415« 



166 
198 



167 

200 



184 
201 



185 

202 



186 

205 



187 

206 



189 

209 



190 
211 



191 
212 



751# 
34S# 
574 
845 
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PHBA 


00i374R 


275# 


438* 


447* 


461* 


489 


RH8AE 


001440R 


293# 


496* 


848* 






RHCSi 


001370R 


273# 
792 


469* 
806* 


474* 


475 


481* 


RHCS2 


00i400R 


277# 


355* 


468* 


485* 


576 


RHCS3 


001442R 


294S 


8S0» 








RNDB 


001412R 


202» 


615 


618* 


623* 


824* 


RHWC 


001372R 


274!« 


437# 


446# 


460* 


608* 


ROOM 


003140R 


5i4« 


571 








RPAS 


001406R 


2809 


480* 


591 


612 


734 


RPCC 


001426R 


288» 


711* 


836* 






RPDA 


001376R 


276# 


439* 


448# 


462* 


812* 


RPDC 


001424R 


2R7# 


441* 


450* 


464* 


834* 


RPDS 


001402R 


278# 


573 


589 


752 


816* 


RPDT 


001416R 


284tf 


683 


685 


828* 




RPECl 


001434R 


291» 


842* 








RPEC2 


001436R 


292# 


844* 








RPERl 


001404R 


279# 


569 


818« 






RPER2 


0014 30R 


289# 


838* 








RPER3 


001432R 


290# 


840* 








RPLA 


001410P 


281# 


822* 








RPMR 


001414R 


283» 


826* 








RPOF 


001422P 


286» 


482* 


832* 






RPSN 


0014 20R 


285» 


830* 








RP06CK 


004132R 


440 


449 


463 


682# 




R5TRT 


000il2R 


199» 










SBADR 


000102P 


192# 


774* 








SEC 


000264R 


227S 


649» 


669« 


674 


676* 


SETUP 


00 4 7 00 P 


336 


805# 








SOFCNT 


fe^00042R 


175# 










SOFEFSa 


104406 


222» 


604 








SOFPAS 


000046R 


1770 










SPOINT 


000032P 


171» 


318 








SPSIZ s 


0000 40 


1» 


215 








SRI 


0000 1 6P 


164» 


305 


415 


579 




SR2 


00<^02l^R 


165« 










SR3 


00002 2R 


166« 










SR4 


00002 4R 


1678 










START 


(Hn452R 


170 


298# 








STAT 


000026P 


169# 










STRT 


00175 4R 


349# 


362 


379 


852 




STRTl 


001762P 


350« 










SVR0 


00006 2 P 


1R4« 










SVRl 


f)O0064p 


lS5Jf 










SVR2 


H0t'066P 


1P6» 










SVR3 


000070P 


187* 










SVR4 


00k?072P 


188i^ 










SVR5 


00-307 4R 


iB9^ 










SVR6 


t00076P 


190# 










SYSCNT 


000052R 


179« 










TABLE 


tHH37 0R 


272« 


595 


604 


621 


726 


TBUF 


y00J56R 


266« 










TOUT 


tHi552i^P 


917# 










TREPP 


005 452R 


599 


8971! 








TRK 


0H5561R 


650* 


664* 


672 


678 


942# 


TRPDFDs 


0'/H1022 


2221 
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TRYl 


U05544R 


367« 


394* 


395 


929: 


TRY10 


0^5555 P 


938» 








TRYll 


(i^5556R 


372* 


939# 






TRY12 


ws')5557R 


940# 








TPY2 


0055 45R 


401* 


402 


930» 




TRY3 


005546R 


368* 


408* 


409 


931 


TRY4 


tt)05547R 


932« 








TPY5 


00555i^'P 


369* 


933# 






TRY6 


005551P 


934# 








TRY7 


0«5552R 


370* 


935|t 






TPY8 


(^05553P 


936« 








TRY9 


005554R 


371* 


937« 






T16 


t-!00 320R 


246« 


304 






T18 


000 332R 


254f» 


308 






UN I TNG 


000364B 


269# 


320* 


332* 


339' 


UPDATT 


(^.02550R 


363 


454« 






VECTOR 


00001tiR 


160«t 


486* 


851 




WASADP 


t;00l04R 


194^ 


776* 






WBUFEA 


000136R 


209« 


444 


453 




WBUFPA 


0001 3 4R 


208 « 


438 


447 




WBUFPQ 


000140R 


210# 








WBUFSZ 


0001 4 2R 


211 « 


352 


515 




WCNTl 


000360R 


267# 


352» 


353* 


437 


WCNT2 


fr^00362P 


268« 


347* 


348* 


460 


WDFR 


0001 16R 


201» 


298* 






WDTO 


t)00ll4R 


200« 


299* 






WHO 


004406R 


614 


734# 






WRITCK 


002454R 


380 


445« 






WRITE 


002 360R 


373 


436# 






XFERAD 


001444P 


295« 








XFERCT 


00l44bR 


296« 








XFLAG 


000005R 


158» 








XMEM 


000300P 


237» 


444* 


453* 


467^ 


ZERO 


000 344P 


26H 


618 






» 3 


005564P 


271# 


385 


896# 


925 


, ABSs 


000000 000 
005564 001 









491* 
944# 



ERRORS DETFCTEDl 

DEFAULT GLOBALS GENERATED! 

XRPBl0,XRPBI0/SOL/CRFl5YMaDDXCOM,XRPBI0 
RUN-TIMEl 1 2 ,4 SECONDS 
RUN«TIME RATIOl 18/5s3,4 
CORE USEDl 7K (13 PAGES) 



